home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 6 (Reseller Edition) / Apple Ref. & Pres. Lib.v6.0.toast / pc / 3-Presentations / Markets / Education / HyperCard In Education / Frames of Reference / background_9670.txt < prev    next >
Text File  |  1990-04-02  |  2KB  |  103 lines
  1. -- background: 9670 from stack: in
  2. -- bmap block id: 10787
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: Experiment 3
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: 2000
  11. -- rect: left=428 top=38 right=69 bottom=498
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Main Menu
  20.  
  21.  
  22. -- part 3 (button)
  23. -- low flags: 00
  24. -- high flags: 0000
  25. -- rect: left=428 top=119 right=150 bottom=498
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 1
  29. -- font id: 0
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: parameter
  34.  
  35.  
  36. -- part 4 (button)
  37. -- low flags: 00
  38. -- high flags: 2000
  39. -- rect: left=428 top=293 right=328 bottom=498
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 1020 / 1020
  42. -- text alignment: 1
  43. -- font id: 0
  44. -- text size: 12
  45. -- style flags: 0
  46. -- line height: 16
  47. -- part name: Help
  48. ----- HyperTalk script -----
  49. on mouseUp
  50.   show card field "help"
  51.   wait until the mouse is down
  52.   hide card field "help"
  53. end mouseUp
  54.  
  55.  
  56. -- part 5 (field)
  57. -- low flags: 01
  58. -- high flags: 0002
  59. -- rect: left=428 top=160 right=289 bottom=498
  60. -- title width / last selected line: 0
  61. -- icon id / first selected line: 0 / 0
  62. -- text alignment: 0
  63. -- font id: 3
  64. -- text size: 12
  65. -- style flags: 0
  66. -- line height: 16
  67. -- part name: Blurb
  68. ----- HyperTalk script -----
  69. on mouseUp
  70.   global cardClear3
  71.  
  72.   if cardClear3 is true then runExperiment
  73.   else
  74.     clearCardGraphics
  75.     set the loc of button "table marker" to 30,202
  76.     set the loc of button "puck" to 30,180
  77.     put "Press this field to begin pushing the puck." into me
  78.     put true into cardClear3
  79.     pass mouseUp
  80.   end if
  81. end mouseUp
  82.  
  83.  
  84.  
  85. -- part 7 (button)
  86. -- low flags: 00
  87. -- high flags: A002
  88. -- rect: left=16 top=319 right=340 bottom=76
  89. -- title width / last selected line: 0
  90. -- icon id / first selected line: 0 / 0
  91. -- text alignment: 1
  92. -- font id: 0
  93. -- text size: 12
  94. -- style flags: 0
  95. -- line height: 16
  96. -- part name: Return
  97. ----- HyperTalk script -----
  98. on mouseUp
  99.   global ReturnCard
  100.   go ReturnCard
  101. end mouseUp
  102.  
  103.